home *** CD-ROM | disk | FTP | other *** search
- object SweepForm: TSweepForm
- Left = 312
- Top = 140
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'MineSweeper'
- ClientHeight = 302
- ClientWidth = 281
- Font.Color = clFuchsia
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = [fsBold]
- Icon.Data = {<image000.ico>}
- Menu = SweepMenu
- PixelsPerInch = 96
- PrintScale = poPrintToFit
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- TextHeight = 16
- object AllButtons: TImage
- Left = 202
- Top = 2
- Width = 16
- Height = 256
- AutoSize = True
- Picture.Data = {<image001.bmp>}
- Visible = False
- end
- object FACES: TImage
- Left = 222
- Top = 4
- Width = 24
- Height = 120
- AutoSize = True
- Picture.Data = {<image002.bmp>}
- Visible = False
- end
- object LEDS: TImage
- Left = 183
- Top = 2
- Width = 13
- Height = 276
- AutoSize = True
- Picture.Data = {<image003.bmp>}
- Visible = False
- end
- object FormPanel: TPanel
- Left = 0
- Top = 0
- Width = 160
- Height = 208
- BevelWidth = 3
- TabOrder = 1
- object ScorePanel: TPanel
- Left = 13
- Top = 11
- Width = 134
- Height = 37
- BevelOuter = bvLowered
- BevelWidth = 2
- TabOrder = 0
- object FacePictureBox: TImage
- Left = 56
- Top = 6
- Width = 24
- Height = 24
- OnClick = FacePictureBoxClick
- OnMouseDown = FacePictureBoxMouseDown
- OnMouseMove = FacePictureBoxMouseMove
- OnMouseUp = FacePictureBoxMouseUp
- end
- object TimePanel: TPanel
- Left = 87
- Top = 6
- Width = 41
- Height = 25
- BevelOuter = bvLowered
- TabOrder = 0
- object TimePicture: TImage
- Left = 1
- Top = 1
- Width = 39
- Height = 23
- end
- end
- object MinePanel: TPanel
- Left = 5
- Top = 6
- Width = 41
- Height = 24
- BevelOuter = bvLowered
- TabOrder = 1
- object MinesPicture: TImage
- Left = 1
- Top = 0
- Width = 39
- Height = 23
- end
- end
- end
- object GamePanel: TPanel
- Left = 11
- Top = 59
- Width = 138
- Height = 137
- BevelOuter = bvLowered
- BevelWidth = 3
- TabOrder = 1
- end
- end
- object GameGrid: TDrawGrid
- Left = 14
- Top = 62
- Width = 128
- Height = 128
- BorderStyle = bsNone
- Color = clBtnFace
- ColCount = 8
- DefaultColWidth = 16
- DefaultRowHeight = 16
- DefaultDrawing = False
- DragCursor = crArrow
- FixedCols = 0
- FixedRows = 0
- GridLineWidth = 0
- Options = [goFixedVertLine, goFixedHorzLine]
- RowCount = 8
- ScrollBars = ssNone
- TabOrder = 0
- OnDrawCell = PaintCell
- OnMouseDown = GameGridMouseDown
- OnMouseMove = GameGridMouseMove
- OnMouseUp = GameGridMouseUp
- end
- object SweepMenu: TMainMenu
- Left = 219
- Top = 216
- object Game1: TMenuItem
- Caption = '&Game'
- object New2: TMenuItem
- Caption = '&New'
- OnClick = New2Click
- ShortCutText = 'F2'
- end
- object N1: TMenuItem
- Caption = '-'
- end
- object Beginner1: TMenuItem
- Caption = '&Beginner'
- OnClick = Beginner1Click
- end
- object Intermediate1: TMenuItem
- Caption = '&Intermediate'
- OnClick = Intermediate1Click
- end
- object Expert1: TMenuItem
- Caption = '&Expert'
- OnClick = Expert1Click
- end
- object N4: TMenuItem
- Caption = '-'
- end
- object Exit1: TMenuItem
- Caption = 'E&xit'
- OnClick = Exit1Click
- end
- end
- object new1: TMenuItem
- Caption = '&Help'
- object About1: TMenuItem
- Caption = '&About'
- OnClick = About1Click
- end
- end
- end
- object GameTimer: TTimer
- OnTimer = GameTimerTimer
- Left = 220
- Top = 148
- end
- end
-